;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;
(DEFUN make_dimaro ()
   (PROGN
     (ENTMAKE
       '((0 . "BLOCK") (2 . "DIMARO") (70 . 64) (10 0.0 0.0 0.0))
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 0.0 0.0 0.0)
                (11 -0.947368 0.157895 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.947368 0.118421 0.0)
                (11 -0.236842 0.0 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.473684 0.0 0.0)
                (11 -0.947368 0.0789474 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.947368 0.0394737 0.0)
                (11 -0.710526 0.0 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.710526 0.0 0.0)
                (11 -0.947368 -0.0394737 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.947368 -0.0789474 0.0)
                (11 -0.473684 0.0 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.236842 0.0 0.0)
                (11 -0.947368 -0.118421 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.947368 -0.157895 0.0)
                (11 0.0 0.0 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.947368 -0.118421 0.0)
                (11 -0.947368 -0.0789474 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.947368 -0.0394737 0.0)
                (11 -0.947368 0.0 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.947368 0.0789474 0.0)
                (11 -0.947368 0.0394737 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -0.947368 0.118421 0.0)
                (11 -0.947368 0.157895 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "LINE")
                (8 . "0")
                (62 . 0)
                (10 -1.0 0.0 0.0)
                (11 -0.947368 0.0 0.0)
                (210 0.0 0.0 1.0)
               )
     ) ;_ end of entmake
     (ENTMAKE '((0 . "ENDBLK")))
   ) ;_ end of progn
  (PRINC)
)